home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS069.dsk / CRIBBAGE I BW.bas < prev    next >
BASIC Source File  |  2012-02-16  |  13KB  |  515 lines
  1. 5  REM  FROM CREATIVE COMPUTING MAY 1979
  2. 10  DIM D(52,4),C$(52),I(52),W(5,4),M(6,4),Y(6,4),C(4,4)
  3. 20  DIM D$(6),V(15,7),Q(11,6),R(4,5),S(4),J(52)
  4. 22  FOR I = 1 TO 15: FOR J = 1 TO 7: READ V(I,J): NEXT J,I
  5. 24  FOR I = 1 TO 11: FOR J = 1 TO 6: READ Q(I,J): NEXT J,I
  6. 26  FOR I = 1 TO 4: FOR J = 1 TO 5: READ R(I,J): NEXT J,I
  7. 28  FOR I = 1 TO 4: READ S(I): NEXT I
  8. 30  FOR I = 1 TO 6: READ D$(I): NEXT I
  9. 40  FOR I = 1 TO 13
  10. 50  READ C$
  11. 60 C$(I) = C$ +" OF SPADES   "
  12. 70 C$(I +13) = C$ +" OF DIAMONDS "
  13. 80 C$(I +26) = C$ +" OF HEARTS   "
  14. 90 C$(I +39) = C$ +" OF CLUBS    "
  15. 100  NEXT I
  16. 120  REM  CRIBBAGE BY S YARROW
  17. 130  REM  CREATIVE COMPUTING 
  18. 140  REM  MAY 79 V5 #5
  19. 145  HOME : PRINT " ": PRINT "CRIBBAGE"
  20. 146  PRINT " "
  21. 147  PRINT "BY SHEPPARD YARROW"
  22. 148  PRINT "FM PG 104 OF 5/79 CREATIVE COMPUTING"
  23. 149  VTAB 12: INPUT "YOUR NAME?";NN$: HOME 
  24. 150  PRINT : PRINT 
  25. 170 S1 = 0:S2 = 0
  26. 190  GOSUB 5650
  27. 200  GOSUB 5810
  28. 220  GOSUB 5650
  29. 230  GOSUB 6070
  30. 250  GOSUB 3370
  31. 270 I1 = V(B9,5)
  32. 280 I2 = V(B9,6)
  33. 300  PRINT : INPUT "YOUR DISCARDS ARE ? ";I3,I4
  34. 310 I3 =  INT(I3):I4 =  INT(I4)
  35. 320  IF I3 = I4  OR I3 <1  OR I4 <1  OR I3 >6  OR I4 >6  THEN  PRINT "NOW REALLY !": GOTO 300
  36. 420  FOR J = 1 TO 4
  37. 430 C(1,J) = M(I1,J)
  38. 440 C(2,J) = M(I2,J)
  39. 450 C(3,J) = Y(I3,J)
  40. 460 C(4,J) = Y(I4,J)
  41. 470  NEXT J
  42. 490  GOSUB 4170
  43. 510  GOSUB 1430
  44. 520  IF M = 0  THEN 560
  45. 530  PRINT NN$;" SCORES FIRST "
  46. 540 X1 = 1
  47. 550  GOTO 800
  48. 560  PRINT "APPLE SCORES FIRST "
  49. 570 X1 = 2
  50. 580  GOTO 1070
  51. 590  PRINT "THE CRIB CARDS ARE : "
  52. 610  PRINT : FOR I = 1 TO 4
  53. 620  PRINT C$(C(I,1))
  54. 630  NEXT I
  55. 640  FOR I = 1 TO 4
  56. 650  FOR J = 1 TO 4
  57. 660 W(I,J) = C(I,J)
  58. 670  NEXT J,I
  59. 690 C = 1:W(5,4) = T9
  60. 710  GOSUB 4380
  61. 720  IF X1 = 2  THEN 780
  62. 730  PRINT : PRINT P;"POINTS "
  63. 750 S1 = S1 +P
  64. 760  IF S1 > = 121  THEN 1320
  65. 770  GOTO 1280
  66. 780 X1 = 3: GOTO 920
  67. 800 K = 1
  68. 810  FOR I = 1 TO 6
  69. 820  IF I = I3  THEN 880
  70. 830  IF I = I4  THEN 880
  71. 840  FOR J = 1 TO 4
  72. 850 W(K,J) = Y(I,J)
  73. 860  NEXT J
  74. 870 K = K +1
  75. 880  NEXT I
  76. 890 W(5,4) = T9
  77. 900 C = 0: GOSUB 4380
  78. 920  INPUT "HOW MANY POINTS ? ";P9
  79. 940 D = P -P9
  80. 950  IF D > = 0  THEN 980
  81. 960  PRINT "NOT WITH THAT HAND !": GOTO 920
  82. 980 S2 = S2 +P9
  83. 990  IF S2 > = 121  THEN 1360
  84. 1000  IF D = 0  THEN 1060
  85. 1010 S1 = S1 +D
  86. 1020  PRINT : PRINT "MUGGINS FOR ";D;" POINTS": PRINT 
  87. 1050  IF S1 > = 121  THEN 1320
  88. 1060  ON X1 GOTO 1070,590,1280
  89. 1065  PRINT "X1 BAD VALUE !": STOP 
  90. 1070  FOR K = 1 TO 4
  91. 1080 L = V(B9,K)
  92. 1090  FOR J = 1 TO 4
  93. 1100 W(K,J) = M(L,J)
  94. 1110  NEXT J,K
  95. 1130  PRINT "MY CARDS ARE "
  96. 1140  PRINT 
  97. 1150  FOR K = 1 TO 4
  98. 1160 L = W(K,1)
  99. 1170  PRINT C$(L)
  100. 1180  NEXT K
  101. 1190 W(5,4) = T9
  102. 1200 C = 0
  103. 1210  GOSUB 4380
  104. 1220 S1 = S1 +P
  105. 1230  IF S1 > = 121  THEN 1320
  106. 1240  PRINT : PRINT P;" POINTS ": PRINT 
  107. 1270  ON X1 GOTO 590,800
  108. 1280  PRINT : PRINT "APPLE ";S1;" POINTS ";NN$;" ";S2;" POINTS "
  109. 1300  PRINT : GOTO 220
  110. 1310  END 
  111. 1320  PRINT : PRINT "APPLE  WINS ";S1;" TO ";S2: PRINT : END 
  112. 1360  PRINT : PRINT NN$;" WINS ";S2;" TO ";S1: PRINT 
  113. 1370  END 
  114. 1430 Y5 = 0:M5 = 0:C = 0:S9 = 0:G = 0
  115. 1440  IF M = 0  THEN 1830
  116. 1450  IF Y5 < >4  THEN 1480
  117. 1460  IF M5 = 4  THEN 2460
  118. 1470  GOTO 1830
  119. 1480  PRINT NN$;: INPUT " PLAY ? ";C$
  120. 1500  IF C$ = "GO"  THEN 1830
  121. 1510  FOR C6 = 1 TO 6
  122. 1520  IF C$ = D$(C6)  THEN 1560
  123. 1530  NEXT C6
  124. 1540  PRINT "INVALID PLAY ": GOTO 1480
  125. 1560  IF C6 = I3  THEN 1770
  126. 1570  IF C6 = I4  THEN 1770
  127. 1580  IF Y5 = 0  THEN 1620
  128. 1590  FOR J = 1 TO Y5
  129. 1600  IF I(10 +J) = C6  THEN 1790
  130. 1610  NEXT J
  131. 1620  IF S9 +Y(C6,2) >31  THEN 1810
  132. 1630 S9 = S9 +Y(C6,2)
  133. 1640 Y5 = Y5 +1
  134. 1650 I(10 +Y5) = C6
  135. 1660 C = C +1
  136. 1670 J(C) = Y(C6,4)
  137. 1680  GOSUB 2940
  138. 1690  PRINT NN$;" PLAYED ";C$(Y(C6,1))
  139. 1700  PRINT S9;" SUM    ";P;" POINTS "
  140. 1710 F = 1
  141. 1720 S2 = S2 +P
  142. 1730  IF S2 > = 121  THEN 1360
  143. 1740  IF S9 < >31  THEN 1830
  144. 1750 F = 0:C = 0:S9 = 0:G = 0
  145. 1760  GOTO 1830
  146. 1770  PRINT " YOU DISCARDED THAT ONE"
  147. 1780  GOTO 1480
  148. 1790  PRINT "ALREADY PLAYED "
  149. 1800  GOTO 1480
  150. 1810  PRINT "TOTALS MORE THEN 31 "
  151. 1820  GOTO 1480
  152. 1830  IF M5 < >4  THEN 2000
  153. 1840  IF Y5 = 4  THEN 2460
  154. 1850  IF C$ < >"GO"  THEN 1450
  155. 1860  PRINT 
  156. 1870  IF F = 2  THEN 1940
  157. 1880  PRINT "YOU GET 1 POINT   LAST CARD": PRINT 
  158. 1900 S2 = S2 +1
  159. 1910  IF S2 > = 121  THEN 1360
  160. 1920 F = 0:C = 0:S9 = 0
  161. 1930  GOTO 1450
  162. 1940  PRINT "I GET 1 PIONT    LAST CARD": PRINT 
  163. 1960 S1 = S1 +1
  164. 1970  IF S1 > = 121  THEN 1320
  165. 1980 F = 0:C = 0:S9 = 0
  166. 1990  GOTO 1450
  167. 2000 K9 = 0:P9 = 0:C9 = C:C = C +1:H9 = S9
  168. 2040 I9 = 0
  169. 2045 I9 = I9 +1
  170. 2050 I(I9) = 0
  171. 2060  IF I9 = I1  THEN 2200
  172. 2070  IF I9 = I2  THEN 2200
  173. 2080  IF M5 = 0  THEN 2120
  174. 2090  FOR J9 = 1 TO M5
  175. 2100  IF I9 = I(20 +J9)  THEN 2200
  176. 2110  NEXT J9
  177. 2120  IF H9 +M(I9,2) >31  THEN 2200
  178. 2130 K9 = K9 +1
  179. 2140 S9 = H9 +M(I9,2)
  180. 2150 J(C) = M(I9,4)
  181. 2160  GOSUB 2940
  182. 2170  IF P9 <P  THEN P9 = P
  183. 2180 I(I9) = P
  184. 2190 I(K9 +30) = I9
  185. 2200  IF I9 <6  THEN 2045
  186. 2210 C = C9:S9 = H9
  187. 2230  IF K9 < >0  THEN 2580
  188. 2240  IF C$ < >"GO"  THEN 2330
  189. 2250  IF G = 1  THEN 2340
  190. 2270  PRINT : PRINT "I GET 1 POINT   LAST CARD": PRINT 
  191. 2290 C = 0:S9 = 0:S1 = S1 +1
  192. 2310  IF S1 > = 121  THEN 1320
  193. 2320  GOTO 1450
  194. 2330  IF Y5 < >4  THEN 2420
  195. 2340  PRINT : PRINT "I'LL GIVE YOU 1 POINT  LAST CARD ": PRINT 
  196. 2370 S2 = S2 +1
  197. 2380  IF S2 > = 121  THEN 1360
  198. 2390 C = 0:S9 = 0:G = 0
  199. 2400 C$ = ""
  200. 2410  GOTO 1830
  201. 2420  IF G = 1  THEN 1450
  202. 2430  PRINT "..GO.."
  203. 2440 G = 1
  204. 2450  GOTO 1450
  205. 2460  IF F = 0  THEN 2560
  206. 2470  PRINT 
  207. 2480  IF F = 1  THEN 2530
  208. 2490  PRINT "I GET 1 POINT  LAST CARD "
  209. 2500 S1 = S1 +1
  210. 2510  IF S1 > = 121  THEN 1320
  211. 2520  GOTO 2560
  212. 2530  PRINT "YOU GET 1 POINT  LAST CARD "
  213. 2540 S2 = S2 +1
  214. 2550  IF S2 > = 121  THEN 1360
  215. 2560  PRINT 
  216. 2570  RETURN 
  217. 2580 C = C +1:M5 = M5 +1
  218. 2600  IF C < >1  THEN 2730
  219. 2605  IF M5 < >1  THEN 2730
  220. 2610  FOR J9 = 1 TO 4
  221. 2620 I9 = V(B9,J9)
  222. 2640  IF M(I9,2) = 5  THEN 2700
  223. 2650 I(M5 +20) = I9
  224. 2660 J(C) = M(I9,4)
  225. 2670 P9 = 0
  226. 2680 S9 = M(I9,2)
  227. 2690  GOTO 2800
  228. 2700  NEXT J9
  229. 2710 L = V(B9,1)
  230. 2720  GOTO 2650
  231. 2730  FOR J9 = 1 TO K9
  232. 2740 I9 = I(J9 +30)
  233. 2750  IF I(I9) = P9  THEN 2770
  234. 2760  NEXT J9
  235. 2770 I(M5 +20) = I9
  236. 2780 J(C) = M(I9,4)
  237. 2790 S9 = S9 +M(I9,2)
  238. 2800  PRINT "APPLE  PLAYED  ";C$(M(I9,1))
  239. 2810  PRINT S9;" SUM    ";P9;" POINTS "
  240. 2820 F = 2:S1 = S1 +P9
  241. 2840  IF S1 > = 121  THEN 1320
  242. 2850  IF S9 < >31  THEN 2880
  243. 2860 F = 0:C = 0:S9 = 0
  244. 2870  GOTO 1450
  245. 2880  IF C$ = "GO"  THEN 1830
  246. 2890  GOTO 1450
  247. 2940 P = 0
  248. 2950  IF C = 1  THEN 3170
  249. 2960  IF S9 < >15  THEN 2990
  250. 2970 P = P +2
  251. 2980  GOTO 3010
  252. 2990  IF S9 < >31  THEN 3010
  253. 3000 P = P +2
  254. 3010 QQ = 2: IF C -2 >QQ  THEN QQ = C -2
  255. 3015  FOR I = C TO QQ  STEP  -1
  256. 3020  IF J(I) < >J(I -1)  THEN 3110
  257. 3030  ON C -I +1 GOTO 3040,3060,3080
  258. 3040 P = P +2: GOTO 3090
  259. 3060 P = P +4: GOTO 3090
  260. 3080 P = P +6
  261. 3090  NEXT I
  262. 3110  IF C = 2  THEN 3170
  263. 3120 R9 = 0
  264. 3130  FOR I = 3 TO C
  265. 3140  GOSUB 3180
  266. 3150  NEXT I
  267. 3160 P = P +R9
  268. 3170  RETURN 
  269. 3180  FOR J = 1 TO C
  270. 3190 J(J +10) = J(C -J +1)
  271. 3200  NEXT J
  272. 3210  FOR K = 1 TO I
  273. 3220  FOR L = K +1 TO I
  274. 3230  IF J(K +10) <J(L +10)  THEN 3270
  275. 3240 X = J(K +10)
  276. 3250 J(K +10) = J(L +10)
  277. 3260 J(L +10) = X
  278. 3270  NEXT L,K
  279. 3290  FOR K = 1 TO I -1
  280. 3300  IF J(K +10) < >J(K +11) -1  THEN 3330
  281. 3310  NEXT K
  282. 3320 R9 = I
  283. 3330  RETURN 
  284. 3370 P9 = 0
  285. 3380  FOR Z9 = 1 TO 15
  286. 3390 I1 = V(Z9,1)
  287. 3400 I2 = V(Z9,2)
  288. 3410 I3 = V(Z9,3)
  289. 3420 I4 = V(Z9,4)
  290. 3430  FOR J = 1 TO 4
  291. 3440 W(1,J) = M(I1,J)
  292. 3450 W(2,J) = M(I2,J)
  293. 3460 W(3,J) = M(I3,J)
  294. 3470 W(4,J) = M(I4,J)
  295. 3480 W(5,J) = 25
  296. 3490  NEXT J
  297. 3510 C = 0
  298. 3520  GOSUB 4380
  299. 3530 V(Z9,7) = P
  300. 3540  IF P9 <P  THEN P9 = P
  301. 3550  NEXT Z9
  302. 3570 J = 0
  303. 3580  FOR I = 1 TO 15
  304. 3590  IF V(I,7) < >P9  THEN 3620
  305. 3600 J = J +1
  306. 3610 I(J) = I
  307. 3620  NEXT I
  308. 3630  IF J >1  THEN 3690
  309. 3650 B9 = I(1)
  310. 3660  RETURN 
  311. 3690 C9 = 5:Z = 1
  312. 3710  GOTO 3930
  313. 3730 C9 = 8:Z = 2
  314. 3750  GOTO 3930
  315. 3770 C9 = 7:Z = 3
  316. 3790  GOTO 3930
  317. 3810 C9 = 11:Z = 4
  318. 3830  GOTO 3930
  319. 3850 C9 = 1:Z = 5
  320. 3870  GOTO 3930
  321. 3890 B9 =  INT(J * RND(1)) +1
  322. 3900 B9 = I(B9)
  323. 3910  RETURN 
  324. 3930 P9 = 0
  325. 3940  FOR I = 1 TO 15
  326. 3950 J(I) = 0
  327. 3960  NEXT I
  328. 3970  FOR I = 1 TO J
  329. 3980  FOR K = 1 TO 4
  330. 3990 L = V(I(I),K)
  331. 4000  IF M(L,4) < >C9  THEN 4020
  332. 4010 J(I) = J(I) +1
  333. 4020  NEXT K
  334. 4030  IF P9 <J(I)  THEN P9 = J(I)
  335. 4040  NEXT I
  336. 4050 K = 0
  337. 4060  FOR I = 1 TO J
  338. 4070  IF J(I) < >P9  THEN 4100
  339. 4080 K = K +1
  340. 4090 B9 = I(I)
  341. 4100  NEXT I
  342. 4110  IF K < >1  THEN 4130
  343. 4120  RETURN 
  344. 4130  ON Z GOTO 3730,3770,3810,3850,3890
  345. 4170 U =  INT(38 * RND(1)) +14
  346. 4180  PRINT : PRINT "UP CARD IS ";C$(D(U,1)): PRINT 
  347. 4210  FOR I = 1 TO 4
  348. 4220 W(5,I) = D(U,I)
  349. 4230  NEXT I
  350. 4240 T9 = W(5,4)
  351. 4250  IF W(5,4) < >11  THEN 4340
  352. 4260  IF M = 0  THEN 4310
  353. 4270  PRINT "2 POINTS FOR ME"
  354. 4280 S1 = S1 +2
  355. 4290  IF S1 > = 121  THEN 1320
  356. 4300  RETURN 
  357. 4310  PRINT "2 POINTS FOR YOU ";NN$
  358. 4320 S2 = S2 +2
  359. 4330  IF S2 > = 121  THEN 1360
  360. 4340  RETURN 
  361. 4380 P = 0
  362. 4400  IF C = 1  THEN 4480
  363. 4410  FOR I = 1 TO 4
  364. 4420  IF W(I,4) < >11  THEN 4460
  365. 4430  IF W(I,3) < >W(5,3)  THEN 4460
  366. 4440 P = P +1
  367. 4450  GOTO 4480
  368. 4460  NEXT I
  369. 4480  FOR I = 1 TO 3
  370. 4490  IF W(I,3) < >W(I +1,3) GOTO 4600
  371. 4500  NEXT I
  372. 4520  IF C < >0  THEN 4570
  373. 4530 P = P +4
  374. 4540  IF W(4,3) < >W(5,3)  THEN 4600
  375. 4550 P = P +1
  376. 4560  GOTO 4600
  377. 4570  IF W(4,3) < >W(5,3)  THEN 4600
  378. 4580 P = P +5
  379. 4600  FOR I = 1 TO 4
  380. 4610  FOR J = I +1 TO 5
  381. 4620  IF W(I,2) +W(J,2) < >15  THEN 4640
  382. 4630 P = P +2
  383. 4640  NEXT J,I
  384. 4670  FOR I = 1 TO 3
  385. 4680  FOR J = I +1 TO 4
  386. 4690  FOR K = J +1 TO 5
  387. 4700  IF W(I,2) +W(J,2) +W(K,2) < >15  THEN 4720
  388. 4710 P = P +2
  389. 4720  NEXT K,J,I
  390. 4760  FOR I = 1 TO 2
  391. 4770  FOR J = I +1 TO 3
  392. 4780  FOR K = J +1 TO 4
  393. 4790  FOR L = K +1 TO 5
  394. 4800  IF W(I,2) +W(J,2) +W(K,2) +W(L,2) < >15  THEN 4820
  395. 4810 P = P +2
  396. 4820  NEXT L,K,J,I
  397. 4870 S = 0
  398. 4880  FOR I = 1 TO 5
  399. 4890 S = S +W(I,2)
  400. 4900  NEXT I
  401. 4910  IF S < >15  THEN 4940
  402. 4920 P = P +2
  403. 4940  FOR I = 1 TO 13
  404. 4950 J(I) = 0
  405. 4960  NEXT I
  406. 4970  FOR I = 1 TO 5
  407. 4980 J = W(I,4)
  408. 4990 J(J) = J(J) +1
  409. 5000  NEXT I
  410. 5010  FOR I = 1 TO 13
  411. 5020  ON J(I) +1 GOTO 5060,5060,5050,5040,5030
  412. 5030 P = P +6
  413. 5040 P = P +4
  414. 5050 P = P +2
  415. 5060  NEXT I
  416. 5080  FOR I = 1 TO 5
  417. 5090  FOR J = I TO 5
  418. 5100  IF W(I,4) < = W(J,4)  THEN 5140
  419. 5110 K = W(I,4):W(I,4) = W(J,4):W(J,4) = K
  420. 5140  NEXT J,I
  421. 5170 D = W(1,4) -Q(1,1)
  422. 5180  FOR I = 1 TO 11
  423. 5190  FOR J = 1 TO 5
  424. 5200 Q(I,J) = Q(I,J) +D
  425. 5210  NEXT J,I
  426. 5230  FOR I = 1 TO 11
  427. 5240  FOR J = 1 TO 5
  428. 5250  IF W(J,4) < >Q(I,J)  THEN 5300
  429. 5260  NEXT J
  430. 5280 P = P +Q(I,6)
  431. 5290  RETURN 
  432. 5300  NEXT I
  433. 5320  FOR L = 1 TO 2
  434. 5330 D = W(L,4) -R(1,1)
  435. 5340  FOR I = 1 TO 4
  436. 5350  FOR J = 1 TO 4
  437. 5360 R(I,J) = R(I,J) +D
  438. 5370  NEXT J,I
  439. 5390  FOR I = 1 TO 4
  440. 5400  FOR K = 1 TO 4
  441. 5410  IF W(K +L -1,4) < >R(I,K)  THEN 5460
  442. 5420  NEXT K
  443. 5440 P = P +R(I,5)
  444. 5450  RETURN 
  445. 5460  NEXT I,L
  446. 5490  FOR L = 1 TO 3
  447. 5500 D = W(L,4) -S(1)
  448. 5510  FOR I = 1 TO 3
  449. 5520 S(I) = S(I) +D
  450. 5530  NEXT I
  451. 5540  FOR I = 1 TO 3
  452. 5550  IF W(L +I -1,4) < >S(I)  THEN 5600
  453. 5560  NEXT I
  454. 5580 P = P +S(4)
  455. 5590  RETURN 
  456. 5600  NEXT L
  457. 5610  RETURN 
  458. 5650  FOR I = 1 TO 52
  459. 5660 I(I) = 0
  460. 5670  NEXT I
  461. 5680  FOR I = 1 TO 52
  462. 5690 J =  INT(52 * RND(1) +1)
  463. 5700  IF I(J) < >0  THEN 5690
  464. 5710 D(I,1) = J
  465. 5720 D(I,3) =  INT((J -1)/13) +1
  466. 5730 D(I,4) = J -13 * INT((J -1)/13)
  467. 5740 D(I,2) = D(I,4): IF D(I,2) >10  THEN D(I,2) = 10
  468. 5750 I(J) = 1
  469. 5760  NEXT I
  470. 5770  RETURN 
  471. 5810  INPUT "PLEASE CUT FOR DEAL (#1 TO 52)";I
  472. 5820  IF I > = 1  OR I < = 52  THEN 5870
  473. 5830  PRINT " BE SERIOUS NOW ";NN$: GOTO 5810
  474. 5870  IF I < > INT(I)  THEN 5830
  475. 5880 I1 = D(I,1)
  476. 5890  PRINT NN$;" YOU DREW THE ";C$(I1)
  477. 5900 J =  INT(52 * RND(1) +1)
  478. 5910  IF J = I  THEN 5900
  479. 5920 J1 = D(J,1)
  480. 5930  PRINT "APPLE DRAWS THE ";C$(J1)
  481. 5940  IF D(I,4) <D(J,4)  THEN 6020
  482. 5950  IF D(J,4) <D(I,4)  THEN 5990
  483. 5960  PRINT "CUT AGAIN !": GOTO 5810
  484. 5990 M = 0: RETURN 
  485. 6020 M = 1: RETURN 
  486. 6070  IF M = 0  THEN 6100
  487. 6080  PRINT : PRINT NN$;" IT IS YOUR DEAL ": PRINT 
  488. 6090  GOTO 6110
  489. 6100  PRINT : PRINT " IT IS MY DEAL "
  490. 6110 M = 1 -M:Y = 1 -M: PRINT 
  491. 6140  PRINT NN$;"'S CARDS ARE : ": PRINT 
  492. 6160  FOR I = 1 TO 6
  493. 6170 K = 2 *I -Y:L = 2 *I -M
  494. 6190  FOR J = 1 TO 4
  495. 6210 M(I,J) = D(K,J)
  496. 6230 Y(I,J) = D(L,J)
  497. 6240  NEXT J
  498. 6250  PRINT I;"  ";C$(Y(I,1))
  499. 6270  NEXT I
  500. 6280  RETURN 
  501. 6290  DATA   1,2,3,4,5,6,0,1,2,3,5,4,6,0,1,2,3,6,4,5,0
  502. 6300  DATA  1,2,4,5,3,6,0,1,2,4,6,3,5,0,1,2,5,6,3,4,0
  503. 6310  DATA  1,3,4,5,2,6,0,1,3,4,6,2,5,0,1,3,5,6,2,4,0
  504. 6320  DATA   1,4,5,6,2,3,0,2,3,4,5,1,6,0,2,3,4,6,1,5,0 
  505. 6330  DATA  2,3,5,6,1,4,0,2,4,5,6,1,3,0,3,4,5,6,1,2,0
  506. 6340  DATA    1,1,1,2,3,09,1,1,2,2,3,12,1,1,2,3,3,12 
  507. 6350  DATA  1,1,2,3,4,08,1,2,2,2,3,09,1,2,2,3,3,12
  508. 6360  DATA  1,2,2,3,4,08,1,2,3,3,3,09,1,2,3,3,4,08
  509. 6370  DATA  1,2,3,4,4,08,1,2,3,4,5,05
  510. 6380  DATA   1,1,2,3,6,1,2,2,3,6,1,2,3,3,6,1,2,3,4,4 
  511. 6390  DATA  1,2,3,3
  512. 6400  DATA  "1","2","3","4","5","6"
  513. 6410  DATA  " A"," 2"," 3"," 4"," 5"," 6"," 7"," 8"
  514. 6420  DATA   " 9", "10"," J"," Q", " K" 
  515. 6430  END